Private Sub UserForm_Initialize()

    With lvw
    
        .View = lvwReport
        .AllowColumnReorder = True
        .FullRowSelect = True
        .Gridlines = True
        .HideSelection = False
        .LabelEdit = lvwManual
    
    End With

End Sub